Voorbeeld van de instructie For Each...Next

Dit voorbeeld maakt gebruik van de instructie For Each...Next om in de Text-eigenschap van alle onderdelen in een collectie naar de aanwezigheid van de tekenreeks ôHalloö te zoeken. In het voorbeeld is MijnObject een tekstgeoriδnteerd object van de collectie MijnCollectie. Beide zijn algemene namen die alleen ter illustratie worden gebruikt.

Dim Found, MyObject, MyCollection
Found = False    ' Initialize variable.
For Each MyObject In MyCollection    ' Iterate through each element. 
    If MyObject.Text = "Hallo" Then    ' If Text equals "Hallo".
        Found = True    ' Set Found to True.
        Exit For    ' Exit loop.
    End If
Next